home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / COMPACT2.M3 < prev    next >
Text File  |  1996-04-01  |  5KB  |  171 lines
  1. name Compact II Mill Source
  2.  
  3. G 2
  4. p >8
  5. x +->3.>4
  6. y +->3.>4
  7. z ->3.>4
  8. X +->3.>4
  9. Y +->3.>4
  10. Z +->3.>4
  11. a >3.>4 IncFrom Z
  12. f >3.>3
  13. q 00
  14. @ >3.>4 IncFrom Z
  15. r ->3.>4
  16. t >2
  17. l >2
  18. h ->3.>4
  19. s >4 ,
  20. M 2
  21. o >3.>4
  22. c >3.>4
  23. b >3.>4
  24. g >2 G
  25. d >2 ""
  26. e ->3.>4
  27. ) 00
  28.  
  29. ModalLetters f                        # List of letters that are modal    
  30.  
  31. ModalGs                               # List of g codes that are modal    
  32.  
  33. HCode X                               # X or X U  'Horizontal char.       
  34. VCode Y                               # Y or Y V  'Vertical char.         
  35. Dcode Z                               # Depth char.                       
  36. FeedCode f                            # Feed rate char.                   
  37.  
  38. Comment $                             # Begin End comment char.           
  39.  
  40. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  41. Coolant 8 9 7                         # On, Off & Mist m codes            
  42. DComp 41 42 40                        # Left, Right & Cancel m codes      
  43. LComp 43 49                           # On & Off codes                    
  44.  
  45. Feed G1                             # Linear move                       
  46.  
  47. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  48.  
  49. Work G                                # Work offset register              
  50.  
  51. CtrCode I J                           # I J or R or I J K L               
  52. Helical? N
  53.  
  54. Spaces? N                             # Y or N  'Spaces between words     
  55. Incremental? N                        # Y or N  'Inc or abs output        
  56. CtrIncremental? N                     # Y or N  'Inc or abs I & J         
  57. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  58.  
  59. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  60.  
  61. Drill                                 # Drilling canned/manual cycle      
  62. G81 a[Depth] X[H] Y[V] Z[D] f[FRate] @[PointD]
  63. end
  64.  
  65. Peck                                  # Pecking canned/manual cycle       
  66. G83 a[Depth] X[H] Y[V] Z[D] f[Frate] @[PointD] o[VBite]
  67. end
  68.  
  69. Tap                                   # Tapping canned/manual cycle       
  70. G84 a[Depth] X[H] Y[V] Z[D] f[Frate] @[PointD]
  71. end
  72.  
  73. Ream                                  # Reaming canned/manual cycle       
  74. G85 a[Depth] X[H] Y[V] Z[D] f[FRate] @[PointD]
  75. end
  76.  
  77. Bore                                  # Boring canned/manual cycle        
  78. G86 a[Depth] X[H] Y[V] Z[D] f[FRate] @[PointD]
  79. end
  80.  
  81. StartCode                             # Start of the program              
  82. G99
  83. p[Val1]
  84. G97 x[Val2] y[Val3] z[Val4]
  85. End
  86.  
  87. 1stToolChange                         # First tool change                 
  88. t[Tool] l[Lcomp] h[Length] s[Speed] M[Direct] c[ToolDiam] M[Cool]
  89. End
  90.  
  91. Infeed                                # Enable cutter comp                
  92. G01 X[H] Y[V] Z[D] g[Side] d[DComp]
  93. end
  94.  
  95.  
  96. Outfeed                               # Disable cutter comp               
  97. G01 X[H] Y[V] Z[D] g40
  98. end
  99.  
  100. ToolChange                            # Secondary tool changes            
  101. t[Tool] l[Lcomp] h[Length] s[Speed] M[Direct] c[ToolDiam] M[Cool]
  102. End
  103.  
  104. EndCode                               # End of the program                
  105. G00 X[Val2] Y[Val3] Z[Val4] M09
  106. M02
  107. End
  108.  
  109. RapidCode                             # Rapid move                        
  110. G00 X[H] Y[V] Z[D]
  111. end
  112.  
  113. LineCode                              # Linear move                       
  114. G01 X[H] Y[V] Z[D] f[FRate]
  115. end
  116.  
  117. CwCode                                # CW circular move                  
  118. G02 X[Hctr] Y[Vctr] r[ArcRad] e[EndAng] )00
  119. end
  120.  
  121. CcwCode                               # CCW circular move                 
  122. G03 X[Hctr] Y[Vctr] r[ArcRad] e[EndAng] )00
  123. end
  124.  
  125. Ask [Val1] " Program#   : " "0000"
  126. Ask [Val2] " X-Axis home: " " 0.0"
  127. Ask [Val3] " Y-Axis home: " " 0.0"
  128. Ask [Val4] " Z-Axis home: " "10.0"
  129.  
  130.  
  131. Replace "G00" with "MOVE, "
  132. Replace "G01" with "CUT,  "
  133. Replace "G02" with "CONT,  CW, CIR("
  134. Replace "G03" with "CONT, CCW, CIR("
  135. Replace "G41" with ", CDCL"
  136. Replace "G42" with ", CDCR"
  137. Replace "G40" with ", CDC/OFF"
  138. Replace "G81" with "DRL,  "
  139. Replace "G83" with "DRL,  "
  140. Replace "G84" with "FLT,  "
  141. Replace "G85" with "REAM, "
  142. Replace "G86" with "BORE, "
  143. Replace "G99" with "MACHIN,MILL"
  144. Replace "p" with "IDENT, "
  145. Replace "G97" with "SETUP, "
  146. Replace "t" with "ATCHG, TOOL "
  147. Replace "e" with "), S(LOC), F("
  148. Replace "f" with ", IPM "
  149. Replace "X" with " XB "
  150. Replace "Y" with ", YB "
  151. Replace "Z" with ", ZB "
  152. Replace "a" with ", A "
  153. Replace "x" with "LX "
  154. Replace "y" with ", LY "
  155. Replace "z" with ", LZ "
  156. Replace "r" with ", R "
  157. Replace "@" with ", CLEAR "
  158. Replace "l" with ", OFFSET "
  159. Replace "h" with ", GL "
  160. Replace "M00" with ", STOP"
  161. Replace "M01" with ", OSTOP"
  162. Replace "M02" with "END"
  163. Replace "M03" with " RPMRH"
  164. Replace "M04" with " RPMLH"
  165. Replace "M08" with ", CON"
  166. Replace "M09" with ", COF"
  167. Replace "M07" with "CON1"
  168. Replace "o" with ", SDEPTH "
  169. Replace "c" with ", TD "
  170. Replace "b" with ", TLCR "
  171.